﻿Imports System.IO
Module Module1
  Sub Main()

    Dim NL As String = Environment.NewLine
    Dim MyFileInfo As New MyFileInfo("C:\Users\Mario\Documents\prova.txt")
    Console.WriteLine(
        MyFileInfo.MyFileName & ": " &
        NL & MyFileInfo.MyGetFileInfo)
    Console.ReadLine()

  End Sub
End Module
